'*******************************************************
'* Integrated Data Systems, Inc.                       *
'* 23875 Ventura Blvd. #102                            *
'* Calabasas, Ca  91302                                *
'* Voice: (818)223-3344                                *
'* BBS:   (818)223-3341                                *
'* CIS:   73700,1622                                   *
'*******************************************************
'*                                                     *
'*      File Name: ThrmDemo.BAS                        *
'*                                                     *
'*        Created: 12/23/94     By: Robert Vandehey    *
'*                                                     *
'*******************************************************

'This program demonstrates a wait box which displays a
'thermometer. One of the main features of this wait box
'is that it acts modal without actually declaring it as
'modal.

'In Visual Basic, once a modal form is called, all execution
'in the calling program is stopped until the form is unloaded.
'This doesn't work for wait screens since you usually want to
'display a wait screen and continue on processing.

'Visual Basic allows you to display a modeless window and continue
'processing but if the user selects another window with the
'mouse, it will change the focus of the window. Many times hiding
'the wait window.

'I looked at many other programs that tried to solve this problem
'but none of them did it effectively. This program does - at least
'in my humble opinion.

'It solves this problem by looping through all the Visual Basic
'forms in the Forms Control array and calling the Windows API
'SetWindowLong function to set the DISABLE style for each window.

'Once the wait window is no longer needed, the DISABLE style is
'removed.

'Currently this program only supports one instance of the wait form.
'It could easily support more, but I can't think of a reason why anyone
'would need more than one wait form at a time.